0 CLR
10 REM-Z
20 POKE53280,0:POKE53281,0:POKE646,3:PRINT"[147]TAG IT WORKING....."
30 SA=49152
40 EA=SA+375
50 REM-POKE IT IN
60 FORI=SATOEA:READ D:CK=CK+D:POKEI,D:NEXT
70 IFCK<>46139THENPRINT"ERROR IN DATA STSTEMENTS":END
80 REM-RELOCATE
90 FK=SA+376
100 H1=INT((SA+13)/256):L1=(SA+13)-H1*256
110 H2=INT((SA+341)/256):L2=(SA+341)-H2*256
120 H3=INT((SA+342)/256):L3=(SA+342)-H3*256
130 H4=INT((SA+376)/256):L4=(SA+376)-H4*256
140 POKESA+02,L1:POKESA+07,H1
150 POKESA+56,L2:POKESA+57,H2
160 POKESA+61,L2:POKESA+62,H2
170 POKESA+66,L3:POKESA+67,H3
180 POKESA+96,L4:POKESA+97,H4
190 POKESA+107,L4:POKESA+108,H4
200 :
210 REM-FN KEYS
220 F$(1) ="POKE53280,1:POKE53281,2:POKE646,3"+CHR$(13)
230 F$(2) ="FUNCTION KEY 2"
240 F$(3) ="LIST:"+CHR$(13)
250 F$(4) ="RUN:"+CHR$(13)
260 PRINT
270 FOR R=1 TO 4 :IFF$(R)=""THENF$(R)=" "
280 NEXT
290 FOR R=1TO4:L=L+LEN(F$(R)):NEXT:   IFL>250THENPRINT"FN KEYS TOO LONG":END
300 TT=-1:FOR R=1TO4
310 FORI=1TOLEN(F$(R))
320 T$=MID$(F$(R),I):TT=TT+1:POKEFK+TT,ASC(T$)
330 NEXTI
340 TT=TT+1:POKEFK+TT,0
350 NEXTR
360 EA=EA+L+5
370 REM-ACTIVATE
380 SYSSA
390 PRINT"ACTIVATED    "
400 PRINT: PRINT"LOCATED AT :";SA;" - ";EA
410 PRINT:PRINT"SAVE OBJECT FILE (Y/N) ?":POKE198,0:WAIT198,1:GETA$
420 IFA$<>"Y"THENEND
430 PRINT: INPUT"FILENAME";F$
440 REM-SAVE OBJ FILE
450 SYS57812F$,8:POKE173,SA/256:POKE172,SA-PEEK(173)*256:POKE780,172
460 POKE782,EA/256:POKE781,EA-PEEK(782)*256:SYS65496
470 REM-DATA
480 DATA120,169,011,141,143,002,169,192,141,144,2,88,096,173,141,002,201,002,240
490 DATA  013,201,006,208,006,169,000,133,212,133,216,076,072,235,165,212,208
500 DATA  249,165,216,208,245,165,157,240,241,165,203,133,002,169,064,133,203
510 DATA  165,002,205,083,193,240,226,141,083,193,160,000,185,084,193,197,002
520 DATA  240,012,200,192,034,208,244,165,002,133,203,076,072,235,192,004,176
530 DATA  048,162,255,200,136,240,011,232,189,118,193,201,000,208,248,136,208
540 DATA  245,232,189,118,193,201,000,240,020,201,013,240,007,032,202,241,232
550 DATA  056,176,238,169,013,141,119,002,169,001,133,198,076,072,235,192,008
560 DATA  176,089,132,002,165,207,240,012,165,206,174,135,002,160,000,132,207
570 DATA  032,019,234,165,211,133,251,169,000,133,212,133,216,133,199,133,211
580 DATA  164,002,192,004,208,003,056,176,032,192,005,208,007,169,039,133,211
590 DATA  056,176,021,192,006,208,007,169,019,133,211,056,176,010,169,024,133
600 DATA  214,032,108,229,076,072,235,165,251,201,040,144,007,024,165,211,105
610 DATA  040,133,211,076,072,235,152,024,105,057,133,253,165,043,133,002,165
620 DATA  044,133,003,160,000,177,002,133,004,200,177,002,133,005,200,177,002
630 DATA  133,251,200,177,002,133,252,200,177,002,201,143,208,056,200,177,002
640 DATA  201,045,208,049,200,177,002,197,253,208,042,169,141,032,202,241,169
650 DATA  076,032,202,241,169,201,032,202,241,166,251,165,252,032,205,189,169
660 DATA  045,032,202,241,169,058,032,202,241,169,013,141,119,002,169,001,133
670 DATA  198,096,165,004,133,002,165,005,240,005,133,003,056,176,159,096,064
680 DATA  004,005,006,003,047,044,055,007,010,028,020,018,014,021,026,029,033
690 DATA  034,037,042,036,039,038,041,062,017,013,022,030,031,009,023,025,012